home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 22 / 2 / DISK2220.ZIP / SCREDIT4.EXE / SMALLEST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-10-24  |  1KB  |  41 lines
  1. {*********************************************************************
  2.  Smallest.Pas demonstrates the minimum amount of Pascal statements
  3.  required to open a screen file, display a screen, accept data entry
  4.  into the screen buffer and pass it back to the calling program.
  5.  
  6.  Step 1
  7.     To use this file do the following..
  8.     1 - Change "ScrDemo.003" to the name of your screen buffer.
  9.     2 - Change "ScrDemo.Scr" to the name of your screen file.
  10.     3 - Change "Dupe_Fields" to the name of your screen
  11.  
  12.  Step 2
  13.    Change COMPILE/(P)RIMARY to Smallest.Pas
  14.     Change OPTIONS/DIRECTORY/(U)NIT to include the directory where
  15.        you have stored "ScrEdit.Tpu".
  16.  
  17.  Step 3
  18.     Compile and run the program.
  19.  
  20.  After you performed the steps listed above this program will
  21.  compile and run if the screen file and screen buffers are in the
  22.  current directory.
  23.  ********************************************************************}
  24. Uses Crt,ScrEdit;
  25. {$I ScrDemo.003}
  26. Begin
  27.  
  28. S_OpenScreenFile('ScrDemo.Scr');
  29. Initialize_Dupe_Fields_Buf;
  30. S_LoadScreen('Dupe_Fields');
  31. S_ClearScreen(1);
  32. Repeat
  33.   S_ReadScreen;
  34.   If  S_Enter Then
  35.       S_UserMsg := 'ENTER KEY PRESSED';
  36. Until S_Esc;
  37.  
  38. S_CloseScreenFile;
  39. gotoxy(1,25);
  40. End.
  41.